;; This is a while demo.
;; 注释是用两个分号开始
;; 对于代码中的参数可以使用空格或者逗号来分割，建议使用逗号以增强代码的可读性
;; 定义一个函数是使用defn: (defn say [])
;; 定义一个变量使用def: (def x 666)

;; 结构
;; (while(expression)
;;    (do
;;       codeblock))

(ns while) ;; ns 是定义一个命名空间，while是文件名，写法可以是烤肉串 a-b-c

(defn Example []
  (def x (atom 1))  ;; 定义一个变量，类型是atom
    (while (< @x 6)   ;; 定义一个while循环，满足条件 x<6 就一直循环
    ;; 以下是循环体
      (do 
        (println @x)  ;; 打印 x
        (println (format "number: %d" @x))
        (swap! x inc))))  ;; 让x自增1

(Example) ;; 调用Example函数, (Example "name")
